From 0a8e4432b7ecb89cb9853a23e64b32cdb37637b4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 4 Aug 2010 20:04:29 +0200 Subject: [PATCH] * lisp/simple.el (exchange-dot-and-mark): Mark obsolete, finally. --- .bzrignore | 1 + lisp/ChangeLog | 4 ++++ lisp/simple.el | 3 ++- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/.bzrignore b/.bzrignore index 52735438f57..730ef237e8e 100644 --- a/.bzrignore +++ b/.bzrignore @@ -68,3 +68,4 @@ configure.lineno src/core core lib-src/stamp-* ++* diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81e4ccb9a38..6fe94d867c7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-08-04 Stefan Monnier + + * simple.el (exchange-dot-and-mark): Mark obsolete, finally. + 2010-08-03 Juanma Barranquero * progmodes/which-func.el (which-func-format): Split help-echo text diff --git a/lisp/simple.el b/lisp/simple.el index 6c8725a813f..d0c27656e41 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3819,7 +3819,8 @@ Does not set point. Does nothing if mark ring is empty." (setq mark-ring (cdr mark-ring))) (deactivate-mark)) -(defalias 'exchange-dot-and-mark 'exchange-point-and-mark) +(define-obsolete-function-alias + 'exchange-dot-and-mark 'exchange-point-and-mark "23.3") (defun exchange-point-and-mark (&optional arg) "Put the mark where point is now, and point where the mark is now. This command works even when the mark is not active, -- 2.30.2